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-- Makelmage.Mesa 
-- Edited by: 

Sandman on July 17, 1978 11:48 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AddSwapStrategy, RemoveSwapStrategy, SwappingProcedure, SwapStrategy], 
AUoDefs: FROM "altodefs" USING [ 

BytesPerPage, PageCount, PageNumber, PageSize], 
AUoFileDefs: FROM "aUofiledefs" USING [ 

CFA, CFP, eofDA, fininDA, FP, TIME, vDA], 
BcdDefs: FROM "bcddefs" USING [FTSelf, MTHandle, MTIndex, VersionStamp] . 
BcdMergeDefs: FROM "bcdmergedef s" USING [MergeBcd], 
BcdTabDefs: FROM "bcdtabdefs" USING [FindString], 
BFSDefs: FROM "bfsdefs" USING [ActOnPages. GetNextDA], 
BootDefs: FROM "bootdefs" USING [PositionSeg] . 
ControlDefs: FROM "controldef s" USING [ 

Alloc, Al locationVector , Al locationVectorSize , ATPreg, AV, ControlLink, 

EntryVectorltem, FrameHandle, FrameVec, Free, GetReturnLink, GFT, 

GFTIndex, GlobalFrameHandle , Greg. Lreg, MaxAllocSlot , OTPreg, ProcDesc, 

SD, StateVector, SVPointer, WDCreg, XTSreg], 
CoreSwapDefs: FROM "coreswapdefs" USING [SetLevel], 
DirectoryDefs: FROM "directorydef s" USING [EnumerateDirectory], 
DiskDefs: FROM "diskdefs" USING [ 

DA, DiskPageDesc, DiskRequest, ResetDisk, SwapPages, VirtualDA], 
DiskKDDefs: FROM "diskkddefs" USING [CloseDiskKD, Initial izeDiskKD] . 
FrameOefs: FROM "framedefs" USING [GlobalFrame, SwapOutCode], 
ImageDefs: FROM "imagedefs" USING [ 

FileRequest, FirstlmageDataPage, HeaderPages, ImageHeader , ImageVersion, 

Mapltem, MapSpace, PuntMesa, StopMesa, UserCleanupProc , VersionID], 
InlineDefs: FROM "inlinedefs" USING [BITAND, COPY], 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, EnumerateModuleTable], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, BcdSegFromLoadState. Configlndex, EnumerateLoadStateBcds, 

GetlnitialLoadState, GetLoadState, GFTIndex, InputLoadState, LoadState, 

LoadStateGFT, ReleaseLoadState, UpdateLoadState] , 
MiscDefs: FROM "miscdefs" USING [DAYTIME, GetNetworkNumber, SetBlock. Zero], 
MIUtilityDefs: FROM "miuti 1 itydef s" USING [ 

AddFileRequest, BashFile, BashHint, DAofPage, DropFileRequest , FilllnCAs. 

FreeAllSpace, GetBcdFileNames, GetSpace, InitFileRequest, 

InitLoadStateGFT, InitSpace, KDSegment, LockCodeSegment, MergeABcd, 

MergeAl IBcds , NewBcdSegmentFromStream, PatchUpGFT, ProcessFileRequests, 

UnlockCodeSegment] , 
OsStaticDefs: FROM "osstaticdef s" USING [OsStatics], 
ProcessDefs: FROM "processdef s" USING [ 

ActiveWord, CurrentPSB, CurrentState , CV, Disablelnterrupts , DIW. 

Enablelnterrupts, ProcessHandle, Queue, ReadyList, SDC, WakeupsWaiting], 
SDDefs: FROM "sddefs" USING [ 

sAddFileRequest, sAllocTrap, sGFTLength, sGoingAway, sSwapTrap, 

sXferTrap], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, Append, CloseFile, DataSegmentAddress , DataSegmentHandle, 

DefaultBase, Defaul tVersion , DeleteDataSegrnent, DeleteFileSegment, 

EnumerateDataSegments, EnunierateFiles , EnumerateFileSegments, FileError. 

FileHandle, FileHint, FileSegmentAddress , Fil eSegmentHandle, 

MapFileSegment, NewDataSegment , NewFile, PageFromAddress, Read, 

ReleaseFile, SetEndOfFile, Swapin, SwapOut, SwapUp, Unlock, Write], 
StreamDefs: FROM "streamdef s" USING [ 

CreateWordStream, DiskHandle, NewWordStream, ReadBlock, StreamHandle, 

WriteBlock], 
StringDefs: FROM "stringdefs" USING [Equi valentString] . 
SystemDefs: FROM "systemdef s" USING [PruneHeap], 
TableDefs: FROM "tabledefs" USING [Allocate], 
TimeDefs: FROM "timedefs" USING [PackedTime] ; 

DEFINITIONS FROM 

LoadStateDefs, DiskDefs, ImageDefs, ControlDefs, SegmentDefs, MIUtilityDefs; 

Makelmage: PROGRAM 

IMPORTS AllocDefs. BcdMergeDefs, BcdTabDefs, TableDefs, BFSDefs, BootDefs, CoreSwapDefs, 
DirectoryDefs, DiskDefs, DiskKDDefs, FrameDefs, ImageDefs, LoaderBcdUtilDefs, 
LoadStateDefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, 
MIUtilityDefs 

EXPORTS ImageDefs. MIUtilityDefs 

SHARES ProcessDefs, DiskDefs, SegmentDefs, ControlDefs, ImageDefs » 
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BEGIN 

CFA: TYPE » AUoFi leDef s .CFA; 

DataSegmentHandle: TYPE » SegmentDef s.DataSegmentHandle; 

FP: TYPE » AltoFileDefs.FP; 

FileHandle: TYPE - SegmentDef s . FileHandle; 

FileSegmentHandle: TYPE » SegmentDef s. FileSegmentHandle; 

PageCount: TYPE » AUoDef s . PageCount; 

PageNumber: TYPE - AT toDef s .PageNumber; 

shortFileRequest: TYPE ° short ImageDefs . FileRequest; 

vDA: TYPE •» AT toFileDef s . vDA; 

GlobalFrameHandle; TYPE « ControlDefs. Global FrameHandlej 

LoadStateGFT: TYPE « LoadStateDef s . LoadStateGFT; 

Configlndex: TYPE ■ LoadStateDef s .Configlndex; 

StreamHandle: TYPE ■= StreamDef s.StreamHandle; 

ProcDesc: TYPE - ControlDefs. ProcDesc; 

MoveWords: PUBLIC PROCEDURE [source: POINTER, nwords: CARDINAL] « 
BEGIN 
IF nwords # StreamDefs.WriteB1ock[stream: bcdstream, address: source, words: nwords] 

THEN ERROR; 
END; 

MapSegmentsInBcd: PROCEDURE [ 

initialGFT: LoadStateGFT, config: Configlndex, bcdseg: FileSegmentHandle] 
RETURNS [unresolved, exports: BOOLEAN] « 
BEGIN OPEN LoaderBcdUtilDefs, LoadStateDef s; 
bed: BcdBase; 
sgb: CARDINAL; 

MapSegments: PROCEDURE [mth: BcdDef s .MTHandle , mti: BcdDef s.MTIndex] 
RETURNS [BOOLEAN] « 
BEGIN OPEN s: sgb+mth .code. sgi ; 
gftLength: CARDINAL = SD[SDDef s . sGFTLength]; 
frame: GlobalFrameHandle; 
rgf i: GFTIndex <- 1; 
WHILE rgfi < gftLength DO 

IF initialGFT[rgfi] = [config: config. gfi: mth.gfi] THEN EXIT; 
rgfi ^ rgfi + 1; 
ENDLOOP; 

IF s.file » BcdDefs.FTSelf AND s. class « code THEN 
BEGIN 

frame <- GFT[rgfi] .frame; 
s.base ♦- frame. codesegment. base; 
END; 
RETURN[FALSE]; 
END; 
SegmentDef s. Swap In [bcdseg]; 
bed ♦- SegmentDef s. FileSegmentAddress[bcdseg]; 
sgb ^ LOOPHOLE[bcd+bcd.sgOffset]; 
[] <- EnumerateModuleTable[bcd. MapSegments]; 
unresolved ♦- bcd.nlmports ^ 0; 
exports <- bcd.nExports ff 0; 
SegmentDefs. Unlock [bcdseg]; 
SegmentDef s.SwapOut[ bcdseg] ; 
END; 

bcdstream: StreamDef s .DiskHandle; 

DisplayHeader: POINTER TO WORD « LOOPHOLE[420B]; 

SwapTrapDuringMakelmage: PUBLIC SIGNAL = CODE; 
SwapErrorDuringMakelmage: PUBLIC SIGNAL « CODE; 
SwapOutDuringMakelmage: PUBLIC SIGNAL « CODE; 
NoRoomlnlmageMap: PUBLIC SIGNAL « CODE; 

SwapTrapError: PROCEDURE « 
BEGIN 

dest: ControlDefs .ControlLink; 
s: ControlDefs. StateVector; 
Process Defs.Disablelnterr up ts[]; 
S ^ STATE; 

dest ^ LOOPHOLE[REGISTER[ControlDefs.OTPreg]]; 
ProcessDefs.DisableInterrupts[]; 
SIGNAL SwapTrapDuringMakelmage; 
RETURN WITH s; 
END; 
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SwapOutError: AllocDef s.SwappingProcedure «• 
BEGIN 

SIGNAL SwapOutDuringMakelmage; 
RETURN[TRUE]; 
END; 

-- File Segment Transfer Routines 

bufferseg: DataSegmentHandle; 
buffer: POINTER; 
BufferPages: PageCount; 

SwapDR: TYPE ■ POINTER TO swap DiskRequest; 

TransferPages: PROCEDURE [ 

da: vDA, base: PageNumber, pages: PageCount, fp: POINTER TO FP, sdr: SwapDR] 

RETURNS [next: vDA] - 

BEGIN OPEN DiskDefs; 

sdr. da ^ @da; 

sdr.f irstPage <- base; 

sdr.lastPage ^ base+pages-1; 

sdr.fp ♦- fp; 

IF SwapPages[sdr] . page ^ base+pages-1 THEN SIGNAL SwapErrorDuringMakelmage; 

next <- sdr. desc. next; 

RETURN[next]; 

END; 

TransferFileSegment: PROCEDURE [ 

buffer: POINTER, seg: FileSegmentHandle, file: FileHandle, base: PageNumber, fileda: vDA] 
RETURNS [vDA] « 
BEGIN 

dpd: DiskPageDesc; 
sdr: swap DiskRequest; 
old: FileHandle <- seg. file; 
segbase: PageNumber ♦- seg. base; 
pages: PageCount ^ seg. pages; 
segda: vDA; 

WITH s: seg SELECT FROM 
disk a> segda ♦- s. hint. da; 
ENDCASE => ERROR SwapErrorDuringMakelmage; 
seg. base <- base; 
sdr <r [ca: buffer, da:, f irstPage:, lastPage:, fp:, fixedCA: FALSE, action:, 

lastAction:, signalCheckError: FALSE, option: swap[desc: @dpd]]; 
IF seg. swappedin THEN 
BEGIN 

sdr.ca ^ SegmentDefs, AddressFromPage[seg.\/Mpage]; 
sdr. action <- sdr . 1 astAction <- WriteD; 

fileda <- TransferPages[f ileda, base, pages, Qfile.fp, @sdr]; 
old . swapcount <- old.swapcount - 1; 
f ile. swapcount ^ file. swapcount + 1; 
END 
ELSE 
BEGIN 

WHILE BufferPages < pages DO 
pages <- pages - BufferPages; 
sdr. action <- sdr. 1 astAction *- ReadD; 

segda *- TransferPages[segda, segbase, BufferPages, @old.fp, @sdr]; 
sdr. action ♦- sdr. 1 astAction <- WriteD; 

fileda <- TransferPages[f ileda, base, BufferPages, @file.fp, @sdr]; 
segbase ♦- segbase + BufferPages; 
base «- base + BufferPages; 
ENDLOOP; 
sdr. action *- sdr . 1 astAction ^ ReadD; 

segda ^ TransferPages[segda, segbase, pages, 0old.fp, @sdr]; 
sdr. action ♦- sdr . lastAction <- WriteD; 

fileda ♦- TransferPages[f ileda, base, pages, Qfile.fp, 0sdr]; 
END; 
old.segcount <- old.segcount - 1; 
seg. file <- file; 
WITH s: seg SELECT FROM 

disk «> s.hint <- FileHint[Al toFileDef s .eofDA, 0]; 
ENDCASE; 
f ile. segcount <- f ile. segcount + 1; 
IF old.segcount « THEN ReleaseFile[old]; 
RETURN [fileda]; 
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END; 

EnumerateNeededModules: PROCEDURE [proc: PROCEDURE [ProcDesc]] ■ 
BEGIN 

proc[LOOPHOLE[EnumerateNe0dedModu1es]]; 
proc[LOOPHOLE[MIUtnityDefs.AddFileRequest]]; 
proc[LOOPHOLE[BFSDefs.ActOn Pages]]; 
proc[LOOPHOLE[S0gmentDefs.MapFileSegment]]; 
proc[LOOPHOLE[SegmentDefs.CloseFile]]; 
proc[LOOPHOLE[DiskKDDefs.Clos0DiskKD]]; 
proc[ LOOPHOLE [ImageDefs. Use rCleanupProc]]; 
proc[LOOPHOLE[DirectoryDefs.Enum0rateDi rectory]]; 
proc[LOOPHOLE[StreaniDefs.ReadBlock]]; 
proc[LOOPHOLE[StreaniDefs.CreateWordStream]]; 
proc[LOOPHOLE[StringDefs.EquivalentString]]; 
proc[LOOPHOLE[LoadStateD0fs.InputLoadState]]; 
proc[LOOPHOLE[FrameDefs. Global Frame]]; 

proc[ LOOPHOLE [ Load erBcdUtilDefs.EnumerateModuleTable]]; * 
p roc[ LOOPHOLE [SystemDefs.PruneHeap]]; 
END; 

SwapOutMakelmageCode: PROCEDURE « 
BEGIN OPEN FrameDefs; 

SwapOutCode[G1obalFrame[MIUtilityDefs.AddFi1eRequest]]; 
SwapOutCode[G1obalFrame[TableDefs. Allocate]]; 
SwapOutCode[GlobalFrame[BcdTabDefs.FindString]]; 
SwapOutCode[GlobalFrame[LoaderBcdUtilDefs.EnumerateModuleTable]]; 
SwapOutCode[GlobalFrame[LoadStateDefs.InputLoadState]]; 
SwapOutCode [Global Frame[BcdMergeDef s .MergeBcd]]; 
END; 

InvalidlmageName: PUBLIC SIGNAL « CODE; 

ResidentGFI: CARDINAL « 1; 

GetlmageFile: PROCEDURE [name: STRING] RETURNS [file: FileHandle] = 
BEGIN OPEN SegmentDefs; 

file <r NewFile[name, Read+Write+Append, Defaul tVersion]; 
IF file = GFT[ResidentGFI].f rame.codesegment.f ile THEN 

SIGNAL InvalidlmageName; 
RETURN 
END; 
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Installlniage: PROCEDURE [name: STRING, merge, code: BOOLEAN] ■ 
BEGIN OPEN DiskDefs, AUoFileDefs; 
wdc: CARDINAL; 
diskrequest: DiskRequest; 
Ipn: PageNumber; numChars: CARDINAL; 
savealloctrap, saveswaptrap : ControlLink; 
auxtrapFrame: FrameHandle; 
saveAllocationVector: A1 locationVector ; 
saveXferTrap, saveXferTrapStatus: UNSPECIFIED; 
nextpage: PageNumber; 

swappedinf ilepages , swappedoutf ilepages , datapages: PageCount ♦■ 0; 
SwapOutErrorStrategy : AllocDef s.SwapStrategy <- 

AllocDefs . Swaps trategy[l ink: ,proc:SwapOutError] ; 
mapindex: CARDINAL ♦- 0; 
maxFileSegPages: CARDINAL ^ 0; 
endof datamapindex: CARDINAL; 
ptSeg: DataSegmentHandle; 
HeaderSeg: DataSegmentHandle; 
Image: POINTER TO ImageHeader; 
imageDA, HeaderDA: vDA; 
ImageFile: FileHandle; 
diskKD: FileSegmentHandle; 
saveDIW: WORD; 

savePV: ARRAY [0..15] OF UNSPECIFIED; 
saveSDC: WORD; 

saveReadyList: ProcessDefs. Queue; 
saveCurrentPSB: ProcessDefs. ProcessH an die; 
saveCurrentState: Control Defs .SVPointer; 
page: PageNumber; 
maxbcdsize: CARDINAL ♦- 0; 
bcdnames: DESCRIPTOR FOR ARRAY OF STRING; 
beds: DESCRIPTOR FOR ARRAY OF FileSegmentHandle; 
unresolved, exports: BOOLEAN; 
con, nbcds: Configlndex; 
time: Al toFileDef s .TIME; 
initgft: LoadStateGFT; 

initstateseg: FileSegmentHandle ^ LoadStateDef s.GetInitialLoadState[]; 
stateseg: FileSegmentHandle *- LoadStateDefs.GetLoadState[]; 
initio ad state: LoadStateDef s.LoadSt ate; 
net: CARDINAL <- MiscDef s .GetNetworkNumber[]; 
NullFP: AUoFileDefs. FP = [[1 ,0, 1 , 17777B . 177777B] , Al toFileDef s .eofDA]; 

SaveProcesses: PROCEDURE « 

BEGIN OPEN ProcessDefs; 

saveDIW ^ DlWt; 

savePV <- CVt; 

DlWt +- 2; 

WakeupsWaitingt <- 0; 

saveSDC <- SDCt; 

saveReadyList ^ ReadyListt; 

saveCurrentPSB <- CurrentPSBt; 

saveCurrentState ♦- CurrentStatet; 

END; 
RestoreProcesses: PROCEDURE » 

BEGIN OPEN ProcessDefs; 

ActiveWordt f- 77777B; 

DlWt <- saveDIW; 

CVt 4- savePV; 

SDCt f- saveSDC; 

ReadyListt ♦- saveReadyList; 

CurrentPSBt <- saveCurrentPSB; 

CurrentStatet <- saveCurrentState; 

END; 
EnterMapItem: PROCEDURE [vmpage: PageNumber, pages: PageCount] = 

BEGIN 

map: POINTER TO ARRAY [0..0) OF normal Mapltem « LOOPHOLE[0Image.map]; 

IF pages > 127 THEN SIGNAL SwapErrorDur ingMakelmage; 

IF mapindex >= MapSpace THEN SIGNAL NoRoomlnlmageMap; 

map[mapindex] <- Mapltem[vmpage, pages, normal[]]; 

mapindex <~ mapindex + SIZE[normal Mapltem]; 

END; 
CountFileSegments: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] - 

BEGIN 

IF s # diskKD THEN 
BEGIN 
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[] ^ BootDefs.PositionSeg[s, FALSE]; 
IF s.swappedin THEN 
BEGIN 

swappedinf ilepages *- swappedinf ilepages + s. pages; 
IF s.class"Code THEN 

maxFileSegPages ♦- MAX[fnaxFneSegPages , s. pages]; 
END 
ELSE 
BEGIN 

swappedoutf ilepages ♦- swappedoutf ilepages + s. pages; 
maxFileSegPages ^ MAX[maxFi1eSegPages , s. pages]; 
END 
END; 
RETURN[FALSE]; 
END; 
CountDataSegments: PROCEDURE [s; DataSegmentHandle] RETURNS [BOOLEAN] » 
BEGIN 

IF s # bufferseg THEN datapages ^ datapages + s. pages; 
RETURN[FALSE]; 
END; 
MapDataSegments: PROCEDURE [s: DataSegmentHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

IF s # HeaderSeg AND s ff bufferseg THEN 
BEGIN 

EnterMapItem[s.VMpage, s. pages]; 
nextpage <- nextpage + s. pages; 
END; 
RETURN[FALSE]; 
END; 
WriteSwappedIn: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] « 
BEGIN 

IF s.swappedin THEN 
BEGIN 

imageDA ♦- TransferFileSegment[buf fer , s, ImageFile, nextpage, imageDA]; 
EnterMapIteni[s .VMpage, s.pages] ; 
nextpage ^ nextpage + s.pages; 
END; 
RETURN[FALSE]; 
END; 
WriteSwappedOutCode: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] » 
BEGIN 

IF -s.swappedin AND s. class « code THEN 
BEGIN 

imageDA <- TransferFileSegment[buffer , s, ImageFile, nextpage, imageDA]; 
nextpage *- nextpage + s.pages; 
END; 
RETURN[FALSE]; 
END; 
WriteSwappedOutNonCode: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] » 
BEGIN 

IF -s.swappedin AND s. class # code AND s ff diskKD THEN 
BEGIN 

imageDA *- TransferFileSegment[buffer , s, ImageFile, nextpage, imageDA]; 
nextpage ♦- nextpage + s.pages; 
END; 
RETURN[FALSE]; 
END; 
SaveBcd: PROCEDURE [config: Configlndex, addr: BcdAddress] RETURNS [BOOLEAN] 
BEGIN 

bcds[config] <- LoadStateDef s .BcdSegFromLoadState[conf ig]; 
RETURN [FALSE]; 
END; 

SD[SDDefs.sAddFileRequest] ♦- AddFileRequest; 

ImageFile <- GetImageFile[name]; 

diskKD *- KDSegment[]; 

ProcessDefs.DisableInterrupts[]; 

wdc <- REGISTER[WDCreg]; 

CoreSwapDef s .SetLevel[-l]; 

SaveProcesses[]; 

ImageDef s .UserCleanupProc[Save]; 

-- handle beds 



Swapln[initstateseg]; 

initloadstate ♦- Fil0SegmentAddress[initstateseg]; 
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MiscDefs.Zero[initloadstate, initstateseg .pag9S*A1 toDef s.PageSize]; 

initgft ♦- DESCRIPT0R[@init1oadstate. gf t , SD[SDDefs. sGFTLength]] ; 

bcdstream ^ StreamDefs .NewWordStream["makeimage.scratcli$" , Read+Write+Append]; 

nbcds ^ LoadStat8Defs.Inputl..oadState[]; -- bring it in for first time 

bcdnames ♦- GetBcdFi1eNames[nbcds]; 

nbcds ^ IF merge THEN 1 ELSE nbcds; 

beds ^ DESCRIPTOR[GetSpace[nbcds], nbcds]; 

page ^ 0; 

InitLoadStat8GFT[initgft, merge, nbcds]; 

IF merge THEN 

BEGIN OPEN MIUtilityDefs; 

MergeAnBcds[initgf t, code, bcdnames]; 

[page, bcds[0]] <- NewBcdSegmentFromStream[bcdstream, page]; 

maxbcdsize ♦- bcds[0]. pages; 

END 
ELSE 

BEGIN OPEN MIUtilityDefs; 

[] ^ LoadStateDefs.EnumerateLoadStateBcds[recent1ast, SaveBcd]; 

FOR con IN [0. .nbcds) DO 

MergeABcd[con, initgft, code, bcdnames]; 

[page, bcds[con]] <- NewBcdSegmentFromStream[bcdstream, page]; 

maxbcdsize <- MAX[maxbcdsize, bcds[con] .pages] ; 

ENDLOOP; 

END; 
bed St ream. destroy [bcdstream]; 
IF merge THEN PatchUpGFT[] ; 

[] <- SystemDefs.PruneHeap[]; 

SetupAuxStorage[]; 

EnumerateNeededModu1es[LockCodeSegment]; 

HeaderDA *- DAofPage[ImageFile. 1]; 

~- [] <- FrameDef s. EnumerateG1obalFrames[SwapOutUmockedCode]; 

-- [] <- EnumerateFileSegments[SwapOutUnlocked]; 

-- set up private frame allocation trap 

ControlDef s . Free[ControlDef s.Anoc[0]]; -- flush large frames 

savealloctrap ^ SD[SDDef s.sAl locTrap]; 

SD[SDDef s . sAl locTrap] *• auxtrapFrame ♦- auxtrap[]; 

saveAl locationVector ♦- AVt; 

AVt 4- LOOPHOLE[DataSegmentAddress[AuxSeg], POINTER TO AnocationVector]t; 

BufferPages <- maxbcdsize+initstateseg. pages; 
bufferseg <- NewDataSegment[Def aul tBase, BufferPages]; 
[] *- EnumerateDataSegments[CountDataSegments] ; 
swappedinf ilepages ♦- swappedoutf ilepages ♦- 0; 
[] <- EnumerateFileSegments[CountFileSegments] ; 
SetEndOf File[ImageFile. 

datapages+swappedinf ilepages+swappedoutf ilepages+FirstlmageDataPage-l, 

AltoDefs.BytesPerPage]; 
[] ♦- DiskKDDefs.CloseDiskKD[]; 

HeaderSeg <- NewDataSegment[Def aultBase, 1]; 
Image <- DataSegmentAddress[HeaderSeg]; 

MiscDef s . Zero [Image, ImageDefs.HeaderPages*AltoDef s.PageSize]; 
Image. prefix. versionident ^ ImageDef s .VersionID; 
-Image. prefix. options <- 0; 

-Image. prefix. state. stk[0] <- Image, prefix . state. stk[l] *- 0; 
Image.prefix. state .stkptr ^ 2; 
Image.prefix. state, dest «- REGISTER[Lreg]; 
Image, prefix . type <- makeimage; 
Image, prefix. leaderDA <- ImageFile.f p . leaderDA; 
time ^ MiscDefs.DAYTIME[]; 
Image.prefix. version ♦- BcdDef s.\/ersionStamp[ 

time: TimeDef s .PackedTime[lowbi ts : time. low, highbits: time. high], 
zapped: FALSE, 
net: net, 

host: OsStaticDef s .OsStatics .Serial Number]; 
Image. prefix. creator *- ImageDefs. ImageVersion[]; -- version stamp of currently running image 

nextpage <- FirstlmageDataPage; 

[] *- SegmentDefs . EnumerateDataSegments[MapDataSegments]; 
IF nextpage ff FirstlmageDataPage+datapages THEN ERROR; 
endofdatamapindex <- map index; 

-- now disable swapping 
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saveswaptrap *• SD[SDDefs.sSwapTrap]; 

SD[SDDefs.sSwapTrap] ^ SwapTrapError; 

AnocDefs.AclclSwapStrategy[@SwapOutErrorStrategy]; 

imageDA ^ DAofPage[ImageFile, nextpage]; 

buffer ^ SegmentDefs.DataSegmentAddressibufferseg]; 

[] ^ SegnientDefs.EnumerateFneSeginents[WriteSwappGdIn]; 

IF nextpage ^ FirstlmageDataPage+datapages+swappedinf ilepages THEN ERROR; 

[] ♦- SegmentDefs.EnumerateFileSegments[WriteSwappedOutCode]; 

[] <- SegmentDefs.EnumerateFileSegments[WriteSwappedOutNonCode]; 

SegmentDefs.DeleteDataSegment[bufferseg]; 

SegmentDefs.CloseFi1e[ImageFne 1 SegmentDef s . FileError »> RESUME]; 
ImageFile. write ^ ImageFile .append ♦- FALSE; 

FOR con IN [0..nbcds) DO 

[unresolved, exports] ^ MapSegmentsInBcd[initgft, con, bcds[con]]; 

init1oadstate.bcds[con] ^ [fp: NullFP, da: AUoFileDef s.eofDA, 
base: bcds[con] .base, unresolved: unresolved, exports: exports, 
pages: bcds[con] .pages , fill: 0]; 

ENDLOOP; 
SegmentDef s.SwapUp[initstateseg]; 
Image.pref ix. loadStateBase ^ stateseg.base; 
Image.pref ix. initialLoadStateBase *- initstateseg.base; 
Image.pref ix. loadStatePages <- initstateseg. pages; 

diskrequest ^ DiskRequest[ 
ca: auxal loc[datapages+3], 
da: auxal loc[datapages+3] , 
fixedCA: FALSE, 
fp: auxallocCSIZECFP]], 
firstPage: FirstImageDataPage-1, 
lastPage: FirstlmageDataPage+datapages-l, 
action: WriteD, 
lastAction: WriteD, 
signalCheckError: FALSE, 
option: update[BFSDef s .GetNextDA]]; 

diskrequest. fpt *- ImageFile. fp; 

[] ♦- SegmentDef s .EnumerateFileSegments[BashHint]; 

[] <- SegmentDefs . EnumerateFiles[BashFile]; 

(diskrequest .ca+l)t <- Image; 

FillInCAs[Image, endof datamapindex, diskrequest. ca+2]; 

MiscDefs.SetBlock[diskrequest.da,f illinDA,datapages+3]; 

(diskrequest. da+l)t +- HeaderDA; 

saveXferTrap ^ SD[SDDef s.sXferTrap]; 
SD[SDDefs.sXferTrap] ^ REGISTER[Lreg]; 
saveXferTrapStatus ^ REGISTER[XTSreg]; 

[Ipn.numChars] ♦- BFSDef s.ActOnPages[LOOPHOLE[@diskrequest]]; 
IF Ipn # OR numChars ff THEN 

BEGIN 

DisplayHeadert 4- SD[SDDefs. sGoingAway] *- 0; 

ImageDef s .StopMesa[] ; 

END; 
REGISTER[WDCreg] ^ wdc; 
AVt i- saveAllocationVector; 
SD[SDDef s . sAllocTrap] <- saveal loctrap; 
SD[SDDefs.sXferTrap] <- saveXferTrap; 
REGISTER[XTSreg] <- saveXferTrapStatus; 
SD[SDDefs.sAddFileRequest] <- 0; 
Free[auxtrapFrame] ; 

SegmentDefs .DeleteDataSegment[HeaderSeg]; 

ptSeg <- SegmentDefs .NewDataSegment[PageFromAddress[ptPointert] ,1]; 
[] <- DiskDefs.ResetOisk[]; 
DiskKDDefs. Initial izeDiskKD[]; 
BootPageTable[ImageFile, ptPo intent]; 
SegmentDefs .DeleteDataSegment[ptSeg] ; 

-- turn swapping back on 

AllocDef s.RemoveSwapStrategy[0SwapOutErrorStrategy]; 

SD[SDDefs . sSwapTrap] <- saveswaptrap; 

RestoreProcesses[]; 

ProcessDef s .Enablelnterrupts[]; 

ProcessFileRequests[]; 
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InlineDefs.COPY[from: initloadstate. to: FileSegmentAddressCstateseg], 

nwords: i nitstates eg. pages* AUoDef s. PageSize] ; 
FOR con IN [0..nbcds) DO 

LoadStateDefs.UpdateLoadState[con, beds [con], 

init1oadstate.bcds[ con], unresolved, initio ad state.bcds[ con] .exports]; 

Del eteFileSegment[ beds [con]]; 

ENDLOOP; 
Loads tateDefs.ReleaseLoadState[]; 
SegmentDefs.Unlock[initstateseg]; 
SegmentDefs.SwapOut[initstateseg]; 
SegmentDef S.Del eteDataSegment[AuxSeg]; 

FreeAllSpace[]; 

EnumerateNeededModules[UnlockCodeSegment]; 

SwapOutMakeImageCode[]; 

ImageDefs.UserCleanupProc [Res tore]; 

RETURN 

END; 

-- auxiliary storage for frames and non-saved items 
AuxSeg: DataSegmentHandle; 
freepointer: POINTER; 
wordsleft: CARDINAL; 

SetupAuxStorage: PROCEDURE ■ 
BEGIN 

av : POINTER; 
i: CARDINAL; 

AuxSeg ♦- NewDataSegment[Def aul tBase. 10] ; 
av ♦- freepointer ♦- DataSegmentAddress[AuxSeg] ; 
wordsleft ^ 10*AltoDefs. PageSize; 
[] ♦- auxal loc[Al locationVectorSize]; 
freepointer <- freepointer+3 ; wordsleft <- wordsleft-3; 
FOR i IN [0. .MaxAllocSlot) DO 

(av+i)t 4- (i + l)*4+2; 

ENDLOOP; 
(av+6)t 4- {av+MaxAnocSlot)t <- (av+MaxAllocSlot+l)t 4- i; 
END; 

auxalloc: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER] ■ 
BEGIN -- allocate in multiples of 4 words 
p ^ freepointer; 

n <- InlineDefs.BITAND[n+3,177774B]; 
freepointer ♦- freepointer+n; 
IF wordsleft < n THEN ImageDef s .PuntMesa[]; 
wordsleft ♦- wordsleft-n; 
RETURN 
END; 

auxtrap: PROCEDURE RETURNS [myframe: FrameHandle] « 
BEGIN 

state: StateVector ; 
newframe: FrameHandle; 
eventry: POINTER TO EntryVectorltem; 
fsize. findex: CARDINAL; 
newG: GlobalFrameHandle; 
dest, tempdest: ControlLink; 
alloc: BOOLEAN; 
gfi: GFTIndex; 
ep: CARDINAL; 

myframe ♦- LOOPHOLE[REGISTER[Lreg]]; 

state. dest <- myf rame.returnl ink; state. source <- 0; 

state. instbyte4-0; 

state. stk[0]4-my frame; 

state. stkptr*-!; 

ProcessDefs.DisableInterrupts[]; 

DO 

ProcessDefs.EnableInterrupts[]; 
TRANSFER WITH state; 

ProcessOef s.DisableInterrupts[]; 
state 4- STATE; 
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dest ^ LOOPHOLE[REGISTER[ATPreg]]; 
myframe.returnlink ^ state. source; 
tempdest ♦- dest; 
DO 

SELECT tempdest. tag FROM 
frame «•> 
BEGIN 

alloc ♦- TRUE; 

findex ^ LOOPHOLE[tempdest , CARDINAL]/4; 
EXIT 
END; 
procedure ■> 

BEGIN OPEN proc: LOOPHOLE[tempdest , ControlDef s. ProcDesc]; 
gfi ^ proc.gfi; ep ^ proc.ep; 
[frame: newG, epbase: findex] ^ GFT[gfi]; 
eventry <- QnewG.code.pref ix.entry[f index+ep]; 
findex *- eventry. framesize; 
alloc <- FALSE; 
EXIT 
END; 
indirect ■> tempdest <- tempdest. 1 inkt; 
ENDCASE -> ImageDefs.PuntMesa[]; 
ENDLOOP; 

IF findex >» MaxAHocSlot THEN ImageDef s.PuntMesa[] 
ELSE 

BEGIN 

fsize ^ FrameVec[f index]+l; -- includes overhead word 

newframe <- LOOPHOLE[f reepointer+1]; 

freepointert «- findex; 

freepointer <- freepointer + fsize; 

IF wordsleft < fsize THEN ImageDef s . PuntMesa[] 

ELSE wordsleft ^ wordsleft - fsize; 

END; 

IF alloc THEN 
BEGIN 

state. dest ^ myframe.returnlink; 
state. stk[state.stkptr] <- newframe; 
state. stkptr ^ state. stkptr+1; 
END 
ELSE 
BEGIN 
IF dest. tag » indirect THEN 

BEGIN 

state. dest ♦- newframe; 

newframe. accessl ink ♦- newG; 

newframe. pc ♦- eventry . initialpc; 

newframe. returnl ink <- myframe.returnlink; 

END 
ELSE 

BEGIN 

IF findex = MaxAllocSlot THEN ImageDef s .PuntMesa[] ; 

state. dest <- dest; 

newframe. accessl ink <- LOOPHOLE[AV[f index]. frame]; 

AV[f index]. frame <- newframe; 

END; 
state. source <- myframe.returnlink; 
END; 

ENDLOOP; 
END; 

PageTable: TYPE = MACHINE DEPENDENT RECORD [ 

fp: AltoFileDefs.CFP, 

firstpage: CARDINAL, 

table: ARRAY [0..1) OF DiskDef S.DA]; 
ptPointer: POINTER TO POINTER TO PageTable « L00PH0LE[248]; 

BootPageTable: PROCEDURE [f ile:FileHandle. pt:POINTER TO PageTable] 
BEGIN OPEN AltoFileDefs; 
lastpage: PageNumber; 

pageinc: PageNumber « pt. firstpage - ImageDef s. FirstlmageOataPage; 
PlugHint: PROCEDURE [seg : FileSegmentHandle] RETURNS [BOOLEAN] » 
BEGIN 
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IF seg.file » file THEN 
BEGIN 

seg.base ^ seg.base + pageinc; 
IF seg.base IN [pt .f irstpage. .lastpage] THEN 
WITH s: seg SELECT FROM 
disk "> s.hint ^ FileHint[ 
page: s.base. 

da: DiskDefs.VirtualDA[pt.table[s.base-pt.f irstpage]]]; 
ENDCASE; 
END; 
RETURN[FALSE] 
END; 
DropFileRequest[f ile]; 
file. open ♦- TRUE; 

file.fp <- FP[seria1: pt.fp. serial , leaderDA: pt.fp. leaderDA]; 
FOR lastpage ^ 0, lastpage+1 
UNTIL pt.table[lastpage] ■ DiskDef s.DA[0,0,0.0.0] 

DO NULL ENDLOOP; 
IF lastpage ■ THEN RETURN; 
lastpage ^ lastpage+pt .f irstpage-1; 
[] <- EnumerateFileSegments[PlugHint]; 
RETURN 
END; 

- The driver 

Makelmage: PUBLIC PROCEDURE [name: STRING] - 
BEGIN 

s: StateVector; 
InitFileRequest[]; 
InitSpace[] ; 

s.stk[0] ^ REGISTERCGreg]; 
s.stkptr ^ 1; 
s. instbyte <- 0; 

s.dest <- FrameDefs.SwapOutCode; 
s. source ♦- GetReturnLink[]; 
Installlmage[name, TRUE, TRUE]; 
RETURN WITH s; 
END; 

MakeUnMergedlmage: PUBLIC PROCEDURE [name: STRING] - 
BEGIN 

s: StateVector; 
InitFileRequest[]; 
InitSpace[]; 

s.stk[0] ^ RE6ISTER[Greg]; 
s.stkptr ♦- 1; 
s. instbyte ♦- 0; 

s.dest ♦- FrameDefs.SwapOutCode; 
s. source <- GetReturnLink[]; 
Installlmage[name. FALSE, TRUE]; 
RETURN WITH s; 
END; 

END.. 



